Option Explicit
'ThisWorkbookҲ
Private Sub Workbook_WindowActivate(ByVal Wn As Window)
    MsgBox Me.Name & "Active]ҥΡ^AC"
End Sub
